Great Canadian Scientists/GCS_CD.iso/mac/PC/GCSData/prefs_o.dxr/00007_SoundFX Toggle.ls

Text File | 1996-09-01 | 352 b | 15 lines

on mouseUp
  global SoundFX
  repeat with count = 32 to 35
    set the hilite of cast count to 0
  end repeat
  set the hilite of cast the castNum of sprite the clickOn to 1
  repeat with count = 32 to 35
    if the hilite of cast count = 1 then
      set SoundFX to abs(count - 35)
    end if
  end repeat
  SoundControl()
  puppetSound("TestFX")
end